home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 21
/
Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso
/
Aminet
/
gfx
/
misc
/
VideoEasel.lha
/
Video Easel
/
CAMRexx
/
Denrite.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-03-31
|
840b
|
33 lines
/* Denrite by Charles Bennet, in CAMRexx by THOR */
MakeAlgorithm:
PLANEALGORITHM margolus hvcenters
return
MakePlane:
if plane=0 then; do
if (center_ | cw_ | opp_ | ccw_) then /* wall ? */
SETPLANE 0 /* remove from moving */
else; do
if alt_ then SETPLANE ccw
else SETPLANE cw /* random walk else */
end
end
if plane=1 then; do
if (center_ | cw_ | opp_ | ccw_) then; do /* wall again ? */
new=center | center_ /* glue here ! */
SETPLANE new
end; else
SETPLANE center_
end
if plane=2 then; do
new=(ul ^ ur)^(ll & lr)^(ul_ & ll_)^(ur_ ^ lr_)
SETPLANE new
end
if plane=3 then; do
SETPLANE center /* delay line */
end
return